home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / intui.lha / asleasy.s < prev    next >
Encoding:
Text File  |  1992-09-02  |  758 b   |  53 lines
  1.  
  2.     SECTION asltest,code_c
  3.     
  4.     opt    o+,c-
  5.     
  6.     include    includes/libs.i
  7.  
  8. ; -------> Open Asl Library (any version)
  9.     
  10.     move.l    $4.w,a6
  11.     lea    ASLname,a1
  12.     move.l    #0,d0
  13.     jsr    OpenLibrary(a6)
  14.     move.l    d0,ASLbase
  15.  
  16. ; -------> Allocate File Requester Space
  17.     
  18.     move.l    ASLbase,a6
  19.     jsr    AllocFileRequest(a6)
  20.     move.l    d0,Requesthd
  21.         
  22. ; -------> Display Requester
  23.  
  24.     move.l    ASLbase,a6
  25.     move.l    Requesthd,a0
  26.     jsr    RequestFile(a6)
  27.     move.l    d0,reqoutput
  28.     
  29. ; -------> Remove Requester Space
  30.  
  31.     move.l    ASLbase,a6
  32.     move.l    Requesthd,a0
  33.     jsr    FreeFileRequest(a6)
  34.     
  35. ; -------> Close Asl Library
  36.  
  37.     move.l    $4.w,a6
  38.     move.l    ASLbase,a1
  39.     jsr    CloseLibrary(a6)
  40.     moveq.w    #0,d0
  41.     rts
  42.     
  43. ; -------> Data and Equates
  44.  
  45.  
  46. ASLname        dc.b    'asl.library',0
  47.     Even    
  48. ASLbase        dc.l    0    
  49. Requesthd    dc.l    0
  50. Reqoutput    dc.l    0
  51.  
  52.     end
  53.